perm filename FOO.LAP[MAC,LSP]1 blob sn#341760 filedate 1978-03-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00005 ENDMK
CāŠ—;

'(THIS IS THE LAP FOR (FOO  DSK (MAC LSP)))
'(COMPILED BY LISP COMPILER /708)
;COMPILED ON MARCH 13, 1978, AT 4:23 PM

(LAP BAR SUBR) 
(ARGS BAR (NIL . 0)) 
(PUSH P (% 0 0 '7)) 
(MOVEI 2 '2) 
(MOVE 1 0 P) 
(SUB P (% 0 0 1 1)) 
(JCALL 2 '*PLUS) 
NIL 


(LAP FOO SUBR) 
(ARGS FOO (NIL . 0)) 
(PUSH P (% 0 0 '7)) 
(MOVEI 2 '2) 
(POP P 1) 
(JCALL 2 '*PLUS) 
NIL